home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / sim.arc / USER.SRC < prev    next >
Encoding:
Text File  |  1987-04-07  |  2.4 KB  |  124 lines
  1. ' USER-Defined Menu        Version 1.00
  2. ' SIMS (c) David Thomas Stewart 1984-1987
  3. ' Distributed by Synergy Development - THIS PROGRAM IS PUBLIC DOMAIN
  4.  
  5. screen(n)
  6.  
  7. normal
  8. foreground(white+)
  9. background(red)
  10. setdate
  11. settime
  12.  
  13. date(2,9)
  14. time(65,9)
  15. pass(25,20)
  16.  
  17. foreground(white+)
  18. background(blue)
  19. setpass
  20.  
  21. normal
  22. foreground(green)
  23. setattr
  24.  
  25. box(0,0)-(79,24),"║"
  26. fill(1,0),"═",78
  27. fill(1,24),"═",78
  28. fill(1,8),"─",78
  29. fill(1,10),"─",78
  30. .(0,0)"╔"
  31. .(0,24)"╚"
  32. .(79,0)"╗"
  33. .(79,24)"╝"
  34. .(0,8)"╟"
  35. .(79,8)"╢"
  36. .(0,10)"╟"
  37. .(79,10)"╢"
  38.  
  39. foreground(white+)
  40. background(blue)
  41. setattr
  42. .(30,9)" USER Menu Version 1.00 "
  43.  
  44. normal
  45. foreground(yellow)
  46. setattr
  47. .(25,2)"█▒   █▒  ██████▒  ██████▒  █████▒"
  48. .(25,3)"█▒   █▒  █▒       █▒       █▒  █▒"
  49. .(25,4)"█▒   █▒  ██████▒  ██████▒  █████▒"
  50. .(25,5)"█▒   █▒       █▒  █▒       █▒  ██▒"
  51. .(25,6)"██████▒  ██████▒  ██████▒  █▒   █▒"
  52.  
  53. option start
  54. option(F1,11,12)" F1  - Your option one ","NULL"
  55. option(F3,11,13)" F3  - Your option two ","NULL"
  56. option(F5,11,14)" F5  - Your option three ","NULL"
  57. option(F7,11,15)" F7  - Your option four ","NULL"
  58. option(F9,11,16)" F9  - Your option five ","NULL"
  59.  
  60. option(F2,44,12)" F2  - Your option six ","NULL"
  61. option(F4,44,13)" F4  - Your option seven ","NULL"
  62. option(F6,44,14)" F6  - Your option eight ","NULL"
  63. option(F8,44,15)" F8  - Your option nine ","NULL"
  64. option(F10,44,16)" F10 - Return to DEMO Menu ","MENU DEMO"
  65. option end
  66.  
  67. border(grey)
  68.  
  69. normal
  70. foreground(cyan)
  71. setattr
  72.  
  73. proc(F1,select)
  74. fill(1,18)," ",78
  75. .(18,18)"This is your option one - F1"
  76. proc end
  77.  
  78. proc(F3,select)
  79. fill(1,18)," ",78
  80. .(18,18)"This is your option two - F3"
  81. proc end
  82.  
  83. proc(F5,select)
  84. fill(1,18)," ",78
  85. .(18,18)"This is your option three - F5"
  86. proc end
  87.  
  88. proc(F7,select)
  89. fill(1,18)," ",78
  90. .(18,18)"This is your option four - F7"
  91. proc end
  92.  
  93. proc(F9,select)
  94. fill(1,18)," ",78
  95. .(18,18)"This is your option five - F9"
  96. proc end
  97.  
  98. proc(F2,select)
  99. fill(1,18)," ",78
  100. .(18,18)"This is your option six - F2"
  101. proc end
  102.  
  103. proc(F4,select)
  104. fill(1,18)," ",78
  105. .(18,18)"This is your option seven - F4"
  106. proc end
  107.  
  108. proc(F6,select)
  109. fill(1,18)," ",78
  110. .(18,18)"This is your option eight - F6"
  111. proc end
  112.  
  113. proc(F8,select)
  114. fill(1,18)," ",78
  115. .(18,18)"This is your option ten - F8"
  116. proc end
  117.  
  118. proc(F10,select)
  119. fill(1,18)," ",78
  120. .(18,18)"This is option ten - F10 - Return to DEMO Menu"
  121. proc end
  122.  
  123. end
  124.